home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / ANC_UTULITYS_16.adf / arclist / scroll.arc / ScrollII.S < prev    next >
Text File  |  1988-09-21  |  2KB  |  111 lines
  1. gfxb=$7ff00
  2. count=$7ff04
  3. baba=$7ff08
  4. charp=$7ff0c
  5. oldcop=$7ff10
  6. intrpt=$7ff14
  7.  
  8. org $40000
  9. load $40000
  10.  
  11. beg:
  12. movem.l a6/a5/a4/a3/a2/a1/a0/d7/d6/d5/d4/d3/d2/d1/d0,-(A7)
  13. move.l #scrolly,charp            ; Where scrolly resides
  14. move.b #$08,count
  15. lea    $48000,a0
  16. moveq  #$7f,d0
  17. clrmem:
  18. clr.l  (a0)+
  19. dbf    d0,clrmem
  20. move.w #$8380,$dff096
  21. move.w #$0020,$dff096
  22. move.w #$4000,$dff09a
  23. chkbtn:
  24. btst   #6,$bfe001
  25. beq    pressed
  26. cmpi.b #228,$dff006
  27. bne.s  chkbtn
  28. move.w #$00f,$dff180
  29. move.l #copl,$dff080
  30. lea    $dff000,a0
  31. clr.l  $120(a0)
  32. clr.w  $102(a0)
  33. move.l #$f9f00000,$40(a0)
  34. move.l #$ffffffff,$44(a0)
  35. move.l #$00048000,$50(a0)
  36. move.l #$00047ffe,$54(a0)
  37. clr.l  $64(a0)
  38. move.w #$1018,$58(a0)
  39. wtbl:
  40. btst   #$e,$dff002
  41. bne.s  wtbl
  42. move.l #$f9f00000,$40(a0)
  43. move.l #$ffffffff,$44(a0)
  44. move.l #$00049000,$50(a0)
  45. move.l #$00048ffe,$54(a0)
  46. clr.l  $64(a0)
  47. move.w #$1018,$58(a0)
  48. wtbl2:
  49. btst   #$e,$dff002
  50. bne.s  wtbl2
  51. subq.b #$01,count
  52. bne.s  endint
  53. move.b #$08,count
  54. scroll:
  55. endint:
  56. move.w    #$fff,$dff180
  57. bra    chkbtn
  58. pressed:
  59. move.l $000004,a6
  60. lea    glib,a1
  61. jsr    -408(a6)
  62. move.l d0,a6
  63. move.w #$8020,$dff096
  64. move.w #$c000,$dff09a
  65. move.l $26(a6),$dff080
  66. movem.l (a7)+,a6/a5/a4/a3/a2/a1/a0/d7/d6/d5/d4/d3/d2/d1/d0
  67. rts
  68.  
  69. copl:
  70. dc.w $008e,$6080,$0090,$a0e0
  71. dc.w $0092,$0028,$00e0,$0004,$00e2,$8000
  72. dc.w $0094,$00d8,$0108,$0002
  73. dc.w $0104,$0010,$0100,$1200
  74. dc.w $8f01,$ff01
  75. dc.w $0182,$000f,$9001,$ff00
  76. dc.w $0182,$044f,$9101,$ff00
  77. dc.w $0182,$088f,$9201,$ff00
  78. dc.w $0182,$0ccf,$9301,$ff00
  79. dc.w $0182,$0fff,$9401,$ff00
  80. dc.w $0182,$0ccf,$9501,$ff00
  81. dc.w $0182,$088f,$9601,$ff00
  82. dc.w $0182,$044f,$9701,$ff00
  83. dc.w $0182,$000f,$9801,$ff00
  84. dc.w $fffe,$fffe
  85. glib:
  86. dc "graphics.library",0
  87. eo:
  88.  
  89. scrolly:
  90. dc "tetragon proudly presents:     tetracrunch v1.02, written by ",0
  91.  
  92. char:
  93. dc.b %11111111
  94. dc.b %10000001
  95. dc.b %10000001
  96. dc.b %10000001
  97. dc.b %10000001
  98. dc.b %10000001
  99. dc.b %10000001
  100. dc.b %11111111
  101.  
  102. dc.b %11111111
  103. dc.b %11111110
  104. dc.b %11111110
  105. dc.b %11111110
  106. dc.b %11111110
  107. dc.b %11111110
  108. dc.b %11111110
  109. dc.b %10000000
  110. end:
  111.